home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / gfx / misc / MakeWebPic.lha / MakeWebPic / killx < prev    next >
Text File  |  1999-09-07  |  380b  |  25 lines
  1. /**
  2. .k text/A
  3.  
  4. rx killx <text>
  5.  
  6. END
  7.  
  8. Programm zum löschen von Dateien in einen
  9. verzeichnis Baum auf Muster
  10.  
  11. **/
  12.  
  13. ARG text
  14.  
  15. IF text = "" THEN EXIT 10
  16.  
  17. ADDRESS COMMAND 'list >ram:liste all files lformat %s%s'
  18. OPEN(list,'ram:liste')
  19. DO UNTIL EOF(list)
  20.   line=READLN(list)
  21.   IF line = '' THEN ITERATE
  22.   IF POS(text,UPPER(line)) ~= 0 THEN ADDRESS COMMAND 'Delete 'line
  23. END
  24. CLOSE(list)
  25.